home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504a.d64 / hi-eddi vc1520 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  40 lines
  1. 50 IFA<2THENA=A+2:LOAD"HI-EXE",8,1
  2. 60 IFA=3THEN150
  3. 70 IFA=4THEN650
  4. 100 INPUT"[147]BETRIEBSART";C:POKE780,C:POKE56,13:CLR:W$="123456":SYS3328
  5. 110 IFPEEK(8073)AND64THENA=3:LOAD"MENUE",8,1
  6. 150 SYS3337:A=PEEK(8064)
  7. 160 ONA+1GOSUB200,250,300,290,400,600,290,290,500,510,300:GOTO150
  8. 200 OPEN3,8,0,"$0":GET#3,C$,C$
  9. 210 GET#3,C$,C$,L$,H$:IFC$=""THENCLOSE3:WAIT198,1:RETURN
  10. 220 PRINT256*ASC(H$+CHR$(0))+ASC(L$+CHR$(0));:SYS3334:GOTO210
  11. 250 PRINT"[147]SEQUENZ:":PRINT"  "W$:INPUT"";W$:IFLEN(W$)<2THEN250
  12. 290 RETURN
  13. 300 POKE8115,8:PRINT"[147]G=GRAFIKBILD":IFPEEK(8073)>127THENPRINT"F=FARBBILD"
  14. 310 PRINT"S=SPRITE":PRINT"Z=ZEICHENSATZ":PRINT" -->";
  15. 320 GETC$:IFC$<>"G"ANDC$<>"F"ANDC$<>"S"ANDC$<>"Z"THEN320
  16. 330 PRINTC$:POKE780,ASC(C$):H$=W$:INPUT"FILENAME";W$:SYS3331:W$=H$:H$=""
  17. 340 OPEN1,8,15,H$:INPUT#1,A,H$:PRINTA;H$:IFA>0THENWAIT198,1
  18. 350 CLOSE1:RETURN
  19. 400 POKE631,34:POKE198,1:H$="":INPUT"[147]";H$:GOTO340
  20. 500 A=8075:GOTO520
  21. 510 A=8079
  22. 520 D=PEEK(8074):C=PEEK(A+D):PRINT"[147]F"2*D+1:PRINT"SCHRITTWEITE :"C,
  23. 530 INPUTC:IFC<1ORC>160THEN530
  24. 540 POKEA+D,C:RETURN
  25. 600 IFA=5THENA=4:LOAD"COPY 1520",8,1
  26. 650 INPUT"[147]BILDNUMMER";D:C=(DAND7)
  27. 660 INPUT"FARBE (0-3)";B$:POKE1000,0:POKE1001,VAL(B$)
  28. 670 FORI=0TO6
  29. 680 IFPEEK(8086+I)=DTHENLETZ=(I+1)*8192
  30. 690 NEXTI
  31. 700 X=INT(Z/256):POKE3399,X:POKE3392,Z-X*256
  32. 710 POKE780,C:SYS3328
  33. 720 PRINT"OVERLAY";:GOSUB800:IFC$="J"THEN630
  34. 730 PRINT"NAHTLOS";:GOSUB800:IFC$="N"THENLETA=1:GOTO50
  35. 740 OPEN1,6,1:PRINT#1,"M",0,-180:CLOSE1
  36. 750 OPEN1,6,0:PRINT#1," ":CLOSE1:GOTO650
  37. 800 PRINT" ? (J/N)";
  38. 810 GETC$:IFC$<>"J"ANDC$<>"N"THEN810
  39. 820 PRINTC$:RETURN
  40.